home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_d / oleauttr.zip / NUMSVR.ZIP / NUMSVCLS.PAS < prev    next >
Pascal/Delphi Source File  |  1995-03-23  |  781b  |  42 lines
  1. unit Numsvcls;
  2.  
  3. interface
  4.  
  5. uses
  6.    SysUtils, OleAuto;
  7.  
  8. type
  9.     TNumSvrOb = class(TOleObject)
  10.     private
  11.         procedure SetX(newx : Integer);
  12.         function GetX : Integer;
  13.     public
  14.         property X : integer read GetX write SetX;
  15.         procedure Incr(var x : Integer);
  16.     end;
  17.  
  18. implementation
  19.  
  20. procedure TNumSvrOb.Incr(var x : Integer);
  21. begin
  22.     { Specify argument type as '&Integer' to pass by reference. }
  23.     SetOleMethodArg('&Integer', x);
  24.     CallOleProc('Incr');
  25. end;
  26.  
  27. procedure TNumSvrOb.SetX(newx : Integer);
  28. begin
  29.     SetOleMethodArg('integer', newx);
  30.     CallOleProc('SetX');
  31. end;
  32.  
  33. function TNumSvrOb.GetX : Integer;
  34. var
  35.     x : Integer;
  36. begin
  37.     CallOleFunction('GetX', 'Integer', x);
  38.     Result := x;
  39. end;
  40.  
  41. end.
  42.